home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8704.d64 / fractale.bas 1.4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  94 lines
  1. 10 REM FRACTALS (BASIC-STEUERPGM)
  2. 20 REM V1.4 VOM 23.11.1986
  3. 30 REM FUER C64 UND VC1541
  4. 40 REM GESCHRIEBEN VON
  5. 50 REM I. CAMPHAUSEN
  6. 60 :
  7. 70 :
  8. 80 :
  9. 100 IF A=0 THEN PRINT"[147]";TAB(13);"BITTE WARTEN!"
  10. 110 IF A=0 THEN POKE55,0:POKE 56,96:CLR:A=1:LOAD"FRACTALE 9.0",8,1
  11. 120 IF A=1 THEN A=2:LOAD"MENUEZEILE",8,1
  12. 130 IF A=2 THEN A=3:LOAD"BIENE/MAUS",8,1
  13. 140 :
  14. 400 REM
  15. 410 REM **************************
  16. 420 REM EINSPRUNGSADRESSEN FUER MC
  17. 430 REM **************************
  18. 440 REM
  19. 500 RU=32799
  20. 510 R2=32823
  21. 520 BEFEHL=35115
  22. 530 GIN=32995
  23. 540 TASTE=35601
  24. 550 DIR=35617
  25. 560 NLAENGE=35887
  26. 570 DLOA=35888
  27. 580 DSAV=35901
  28. 590 GLOA=35924
  29. 600 GSAV=35937
  30. 610 :
  31. 620 A1(1)=DL:A1(2)=DS:A1(3)=GL:A1(4)=GS
  32. 630 A2(1)=RU:A2(2)=R2:A2(3)=GIN:A2(4)=R2
  33. 640 FOR I=1 TO 6:READ AD(I):NEXT I
  34. 650 DATA 24576,24608,24640,26656,26688,28736
  35. 660 FOR I=1 TO 4:READ UE$(I):NEXT I
  36. 670 DATA " DLOAD "," DSAVE "," GLOAD "," GSAVE "
  37. 680 :
  38. 690 :
  39. 1000 REM
  40. 1010 REM *************
  41. 1020 REM HAUPTPROGRAMM
  42. 1030 REM *************
  43. 1040 REM
  44. 1050 SYS 32768
  45. 1060 :
  46. 1070 NR=PEEK(BEFEHL)-2:IF NR>0 THEN GOSUB 3000:GOTO 1070
  47. 1080 GOSUB 2000:GOTO 1070
  48. 1090 :
  49. 1100 :
  50. 2000 REM
  51. 2010 REM ************************
  52. 2020 REM UP STUETZPUNKTE EINGEBEN
  53. 2030 REM ************************
  54. 2040 REM
  55. 2050 PRINT:PRINT
  56. 2060 FOR I=1 TO 6
  57. 2070 :  H=0
  58. 2080 :  PRINT"HOEHE"I"[157]. STUETZPUNKT ";:INPUT H
  59. 2090 :  IF ABS(H)>30 THEN PRINT"BITTE BEACHTEN: -30 <= HOEHE <= +30![146]":GOTO2080
  60. 2100 :  IF H<0 THEN H=256+H
  61. 2110 :  POKE AD(I),H
  62. 2120 NEXT I
  63. 2130 SYS RU
  64. 2140 RETURN
  65. 2150 :
  66. 2160 :
  67. 3000 REM
  68. 3010 REM ******************
  69. 3020 REM UP LADEN/SPEICHERN
  70. 3030 REM ******************
  71. 3040 REM
  72. 3050 PRINT "[147][144]****************************************"
  73. 3060 PRINT "";TAB((40-LEN(UE$(NR)))/2);UE$(NR)
  74. 3070 N$="":INPUT"FILENAME ";N$
  75. 3080 IF N$="" THEN SYS R2:RETURN
  76. 3090 IF N$="$"THEN SYS DIR:GOSUB 4000:IF FE=0 THEN SYS TASTE:GOTO 3000
  77. 3100 IF NR<3 THEN N$=CHR$(4)+N$
  78. 3110 IF NR>2 THEN N$=CHR$(7)+N$
  79. 3120 POKE NL,LEN(N$)
  80. 3130 FOR I=1 TO LEN(N$):POKE 703+I,ASC(MID$(N$,I,1)):NEXT I
  81. 3140 SYS A1(NR):GOSUB 4000:IF FE<>0 THEN 3000
  82. 3150 SYS A2(NR)
  83. 3160 RETURN
  84. 3170 :
  85. 3180 :
  86. 4000 REM
  87. 4010 REM ***********************
  88. 4020 REM UP FEHLERKANAL ABFRAGEN
  89. 4030 REM ***********************
  90. 4040 REM
  91. 4050 OPEN 1,8,15:INPUT#1,FE,FE$,A,B:CLOSE 1                    
  92. 4060 PRINT:PRINT FE,FE$:IF FE<>0 THEN SYS TASTE
  93. 4070 RETURN
  94.